/*  ------------------------------------------------------------------------  */
/*  Paper        : Does Stakeholder Outrage Determine Executive Pay?          */
/*  Program      : a02-05-prepandemic.do                                      */
/*  Description  : CEO salary cuts and prepandemic compensation               */
/*  ------------------------------------------------------------------------  */

use "$temp112/outragePanel.dta", clear

#delimit ;
global fix
instoHhi lnEmp chAt ln_mcap btm leverage_mkt tangibility ret_std roa_std xrd_at
payout_d boardSize boardTenure ceo_tenure exret_12m
; #delimit cr

local fix i.sic2_ctrl $fix

eststo base: qui reg dcut_firm i.sic2_ctrl $fix ///
	if fyear==2019 & mainsample_2020==1 & !missing(f.ln_mcap), vce(robust)

eststo pre2_tdc1 : qui reg dcut_firm ln_tdc1 `fix' ///
	if fyear==2019 & mainsample_2020==1 & !missing(f.ln_mcap), vce(robust)

eststo pre2_varcomp : qui reg dcut_firm ln_salary ln_varcomp `fix' ///
	if fyear==2019 & mainsample_2020==1 & !missing(f.ln_mcap), vce(robust)

esttab base pre2_tdc1 pre2_varcomp, order(*tdc1 *salary *varcomp) drop(*sic*)

/*  -|----------------------------------------------------------------------  */
/*  ||  ---    Program end: a02-05-prepandemic.do                             */
/*  -|  ---    Attila Balogh    --------------------------------------------  */